home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr29 / fih110.zip / REINST.CMD < prev    next >
OS/2 REXX Batch file  |  1995-03-06  |  2KB  |  67 lines
  1. /* Icon Heaven installation script */
  2. /* (C)Copyright 1993-1995 by The Frobozz Magic Software Company */
  3. Call RxFuncadd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  4. Call SysLoadFuncs
  5.  
  6. app = 'IHeaven'
  7. key = 'INSTDIR'
  8.  
  9. '@echo off'
  10.  
  11. Call SysCls
  12.  
  13. say 'Icon Heaven re-installation utility version 1.10'
  14. say '(C)Copyright 1993-1995 by the Frobozz Magic Software Company'
  15.  
  16. res = SysIni(, app, key)
  17.  
  18. if res = 'ERROR:' then do
  19.     res = stream('fim.dll', 'c', 'query exists')
  20.     if res='' then do
  21.         say 'Icon Heaven is not installed in this directory'
  22.         say 'please go to the Icon Heaven directory and run'
  23.         say 'this program again'
  24.         exit
  25.     end
  26.     res = directory()
  27.     t = SysIni(, app, key, res)
  28. end
  29.  
  30. instdir = res
  31.  
  32. res=SysRegisterObjectClass('FIMTransIcon', instdir'\fim.dll')
  33. res=SysRegisterObjectClass('FIMFolder', instdir'\fim.dll')
  34.  
  35. say 'Recreating Icon Heaven folder'
  36. retval = SysCreateObject('WPFolder', 'Icon Heaven', '<WP_DESKTOP>', 'ICONFILE='instdir'\fim.ico;OBJECTID=<FIM_ICONS>', 'R')
  37. say 'Recreating program objects'
  38. retval = SysCreateObject('WPProgram', 'Icon Librarian', '<FIM_ICONS>', 'PROGTYPE=WINDOWABLEVIO;ASSOCFILTER=*.FIM;EXENAME='instdir'\iconlib.exe;ICONFILE='instdir'\iconlib.ico', 'R')
  39. retval = SysCreateObject('WPProgram', 'De-Install', '<FIM_ICONS>', 'PROGTYPE=WINDOWABLEVIO;EXENAME='instdir'\deinstal.cmd', 'R')
  40. retval = SysCreateObject('WPProgram', 'Read Me', '<FIM_ICONS>', 'PROGTYPE=PM;EXENAME=e.exe;PARAMETERS='instdir'\readme.1st', 'R')
  41.  
  42. call SysFileTree instdir'\*.fim', 'file.', 'FO'
  43.  
  44. Do i=1 to file.0
  45.     targ = instdir'\'filespec('n',file.i)
  46.     cookie1 = charin(targ)
  47.     cookie2 = charin(targ)
  48.     if cookie1 = 'L' & cookie2 = 'I' then do
  49.         dum = charin(targ,,8)
  50.         n = ''
  51.         c = charin(targ)
  52.         do until c2d(c) = 0
  53.             n = n''c
  54.             c= charin(targ)
  55.         end
  56.         retval = SysCreateObject('FIMFolder', n, '<FIM_ICONS>', 'ICONLIBRARY='targ, 'R')
  57.         say 'Library 'n' reinstalled'
  58.         call stream targ,'C','CLOSE'
  59.     end
  60.     else do
  61.         call stream targ,'C','CLOSE'
  62.     end
  63. End
  64.  
  65. exit
  66.  
  67.